home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / clok_chk.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  314 b   |  14 lines
  1. 5  TIME$="23:59:49":DATE$="06-22-83"    ' Date verified by Read Gilgen
  2. 10  WHILE NOT TIME.OUT
  3. 20   IF TIME$>"00:00:05.00" AND TIME$<"00:01:00.00" THEN TIME.OUT=-1
  4. 30   OPEN "b:clock.chk" FOR APPEND AS #2
  5. 40     FOR LOOP = 1 TO 10
  6. 50         A$=A$ + " ***" + STR$(LOOP)
  7. 60     NEXT
  8. 70     PRINT #2,A$
  9. 75     A$=""
  10. 80   CLOSE #2
  11. 85  PRINT TIME$,DATE$
  12. 90  WEND
  13. 100  END
  14.